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.TITLE VP15A SYSTEM EXERCISER 
/COPYRIGHT FEBRUARY 22,1971 

/DIGITAL EQUIPMENT CORPORATION MAYNAROi MASS, 01754 
/REV, DATE 3/1/71 
/PROGRAMMED BY! earl L, BOUSE 
/ 

/THIS PROGRAM IS DESIGNED TO EXERCISE THE < VP15A 1 STORAGE 
/TUBE DISPLAY SYSTEM, 

.ebrel 




707/64 

A 

2BAS707764 

J 




00000 

R 

600014 

A 

UOPSW 

t 

600014 


/I/O DEVICE WITH IAPI' ADDRESS '54', 

00001 

R 

000000 

A 

KRAN 

0 

/amount 

op RANDOM NUMBERS PLOTTED IN RANDOM TEST, 

00002 

R 

000000 

A 


0 




00003 

R 

000000 

A 


0 




00004 

R 

000070 

R 


, DS A SERVCE 



00005 

R 

000044 

R 


t PSA I N J T 



00006 

R 

262061 

A 


, S I XB T 

*VR15A ’ 



00007 

R 

650140 

A 






00010 

R 

000200 

A 


200 


/DATA 

'SWIM* INHIBITS <VP15a' test, 

00011 

R 


A 


t BL,QCK 

7 



00020 

R 

000000 

A 

SYSERR 

0 


/ERROR 

indicator for monitor, 

00021 

R 

000000 

A 


0 




00022 

R 

000000 

A 

ERCODE 

0 


/ERROR 

CODE 

00023 

R 

000000 

A 


0 




00024 

R 

000000 

A 


0 




00025 

R 

000000 

A 


0 




00026 

R 

000000 

A 


0 




00027 

R 

000000 

A 


0 

y 








/ VP15 A 

JOT’S 




00030 

R 

700522 

A 

cxe 

y 

700522 


/CLEAR 

•X' coordinate buffer 

00031 

R 

700622 

A 

cya 

700622 


/CLEAR 

»Y» COORDINATE BUFFER 

00032 

R 

700524 

A 

LXB 

700524 


/LOAD 

'X' COORDINATE BUFFER ' AC8i-17 • 

00033 

R 

700624 

A 

EYB 

700624 


/LOAD 

' Y ’ COORDINATE BUFFER 'AC8-17I 

00034 

R 

700724 

A 

E$T 

700724 


/ERASE 

STORAGE TUBE 

00035 

R 

700521 

A 

SDDF 

700521 


/SKIP 

ON DISPLAY DONE FLAG, 

00036 

R 

700722 

A 

CDPF 

700722 


/CLEAR 

DISPLAY DONE FLAG, 

00037 

R 

700564 

A 

LXBO 

700564 


/LOAD 

IX' BUFFER AND DISPLAY « XB^YB * 

00040 

R 

700664 

A 

PYBQ 

700664 


/LOAD 

' Y * BUFFER and DISPLAY * YB^XB » 

00041 

R 

700721 

A 

EDI 

700721 


/enable display interrupt 

00042 

R 

700544 

A 

IXDNS 

700544 


/LOAO 

'X' and display * non store 

00043 

R 

700644 

A 

LYDNS 

700644 


/LOAD 

»y' and display non store 



707702 

A 

£ E M s 7 0 7 7 0 2 






707764 

A 

E8A=707764 
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G 


O 
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O /INITIALIZE THE *VP1»A* TEST 


o 

00044 

R 

000000 

A 

J N I T 

0 


00045 

R 

707764 

A 

EBA 



00046 

R 

707702 

A 


EEM 


o 

00047 

R 

200044 

R 


U AC 

JNIT 

00050 

R 

040070 

R 


OAC 

SERVCE. 


00051 

R 

140020 

R 


DHM 

SYSERR 

o 

00052J 

R 

140021 

R 


OHM 

SYSERK+1 

00053 

R 

140022 

R 


D2M 

ENCODE 


00054 

R 

141546 

R 


D2M 

FLGDRV 


00055 

R 

777776 

A 


LAW 

«2 

o 

00056 

R 

041550 

R 


DAC 

THRDCT 


00057 

R 

777634 

A 


LAW 

*144 

o 

00060 

R 

041545 

R 


DAC 

RUNCTR 

00061 

R 

201551 

R 


LAC 

(2) 


00062 

R 

400041 

R 


XCT 

EDI 

o 

00063 

R 

201552 

R 


LAC 

( T S T 1 

00064 

R 

040106 

R 


DAC 

USTSW1 


00065 

R 

100454 

R 


JMS 

HOLDS w 

o 

00066 

R 

400034 

R 


XCT 

EST 

00067 

R 

620044 

R 


JMP* 

/ 

I NIT 

o 





/ 

/SERVICE ENTRANCE 


00070 

R 

000000 

A 

SERVCE 

0 


o 

00071 

R 

707764 

A 


EBA 



00072 

R 

707702 

A 


EEM 



00073 

R 

041543 

R 


DAC 

SAVE AC 

o 

00074 

R 

141546 

R 


DHM 

FLGDRV 


00075 

R 

201541 

R 


LAC 

H 0 L E N B 


00076 

R 

740200 

A 


S2A 


o 

00077 

R 

600104 

R 


JMP 

SERV1 

00100 

R 

400035 

R 


XCT 

SOQF 


00101 

R 

600437 

R 


JMP 

EXITM5 

o 

00102 

R 

777777 

A 


LAW 


00103 

R 

041546 

R 


DAC 

FLGDRV 


00104 

R 

141541 

R 

SERV1 

QHM 

HOLENH 

o 

00105 

R 

620106 

R 


JMP* 

QSTSWl 

00106 

R 

000000 

A 

PSTSW1 

0 



O 

O 

o 

o 


o 


/ENABLE bank addressing 


/clear error locations 

/CLEAR IFLAG DRIVEN* LOCATION 
/set UP LOOP COUNTER FOR TEST #% 

/enable display interrupt 

/CHECK FOR HOLD SWITCH 
/ERASE STORAGE TUBE 


/ENABLE BANK addressing 

/SAVE CONTENTS OF 'AC* 

/clear * flag Driven* indicator 
/was inhibit sw set? 

/YES, RECHECK SW, 

/SKIP ON DISPLAY DONE FLAG, 

/NO FLAG, EXIT MINUS *5* 

/CLEAR INHIBIT SW, 

/TEST DISTRIBUTION LOCATION 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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/TEST 3, 

/DISPLAY A ’BOX i WITH ’BISECTORS' AND 'DIAGONALS', 
/ 


00107 

R 

400036 

R 

TSTt 

XCT 

CPDF 

/CLEAR DISPLAY DONE FLAG, 

00110 

R 

777754 

A 


LAW 

59 2 4 


00111 

R 

041544 

R 


DAC 

CNTR1 

/ < TST1 ' LOOP COUNTER 

00U? 

R 

201553 

R 


LAC 

(XCT LXB 


00113 

R 

040514 

R 


DAC 

0 I SP3 


00114 

R 

040533 

R 


DAC 

Q I SP5 


00115 

R 

201554 

R 


LAC 

(XCT LYBD 


00116 

R 

040517 

R 


DAC 

DJSP4 


00117 

R 

040536 

R 


DAC 

OJSP6 


00120 

R 

750000 

A 


cla 



00121 

R 

100513 

R 


JMS 

PUNE 

/PLOT A LINE AT X=0 

00122 

R 

201534 

R 


LAC 

EDGE 

/sTP 1777 

00123 

R 

100513 

R 


JMS 

PUNE 

/PLOT A UNE AT X = 1777 

00124 

R 

201555 

R 


LAC 

(XCT LYB 


00125 

R 

040514 

R 


DAC 

PJSP3 


00126 

R 

0 40533 

R 


DAC 

DISP5 


00127 

R 

201556 

R 


LAC 

(XCT LXBD 


00130 

R 

040517 

R 


DAC 

QJSP4 


00131 

R 

040536 

R 


DAC 

D I Sp6 


00132 

R 

750000 

A 


CLA 



00133 

R 

100513 

R 


JMS 

PUNE 

/PLOT A LINE AT Y?0 

00134 

R 

201534 

R 


LAC 

EDGE 

/-TO 1777 

00135 

R 

100532 

R 


WMS 

HEINE 

/PLOT A LINE AT Y=177? 

00136 

R 

201535 

R 


LAC 

CENTER 

/=T0 1000 

00137 

R 

100532 

R 


JMS 

MUNE 

/PLOT A UNE AT Y = 1000 

00140 

R 

201553 

R 


LAC 

(XCT LXB 


00141 

R 

040514 

R 


DAC 

D I Spo 


00142 

R 

040533 

R 


DAC 

UJSP5 


00143 

R 

201554 

R 


LAC 

(XCT LYBD 


00144 

R 

040517 

R 


DAC 

PISP4 


00145 

R 

040536 

R 


DAC 

D I SP6 


00146 

R 

201535 

R 


LAC 

center 


00147 

R 

100532 

R 


JMS 

HEINE 

/PLOT A LINE AT X=1000 

00150 

R 

100551 

R 


JMS 

0 I A G 1 

/PLOT 'LL' TO 'UR' DIAGONAL 

00151 

R 

100563 

R 


JMS 

DIAG2 

/PLOT ' Ui, ' TO ' UR ' DIAGONAL 

00152 

R 

101022 

R 


JMS 

SETEX5 

/FINISHED TEST #1, 

00153 

R 

600112 

R 


JMP 

TST1*3 


00154 

R 

400034 

R 

EXTSTJL 

XCT 

EST 

/erase storage tube 

00155 

R 

201557 

R 


LAC 

(TST2 

/SET UP FOR TEST #2 

00156 

R 

040106 

R 


DAC 

QSTSW1 


00157 

R 

777777 

A 


LAW 



00160 

R 

041546 

R 


0 AC 

flgdrv 


00161 

R 

600427 

R 


JMP 

EXJT 



, EJECT 
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VP15A 

SRC 

VP15A SYSTEM EXERCISER 
/TEST #2 

/SUBROUTINE TO SETUP TO PLOT A 
/COORDINATES STORED JN t XY AX I S ' 

CIRCLE USING THE 'X*Y' 
TABLE, 

00162 

R 

400036 

R 

f 

TST2 XCT 

gppF 

/clear the display done FI A 

00163 

R 

777700 

A 

LAW 

1*100 


00164 

R 

041544 

R 

DAC 

CNTR1 

/LOOP COUNTER FOR TEST #2 

00165 

R 

201560 

R 

LAC 

(NOP 


00166 

R 

040676 

R 

DAC 

CONSTA 


00167 

R 

040703 

R 

DAC 

CQNSTB 


00170 

R 

040721 

R 

DAC 

CONSTC 


00171 

R 

040726 

R 

DAC 

CQNSTP 


00172 

R 

040746 

R 

DAC 

CQNSTt 


00173 

R 

040755 

R 

DAC 

CONST? 


00174 

R 

040771 

R 

DAC 

CONST G 


00175 

R 

041000 

R 

OAC 

CQNSTH 


00176 

R 

040677 

R 

DAC 

CQNSTA+1 


00177 

R 

040704 

R 

DAC 

CQNSTB*! 


00200 

R 

040722 

R 

DAC 

CONSTC*! 


00201 

R 

040727 

R 

DAC 

CONSTU*! 


00202 

R 

040747 

R 

DAC 

cqn$te*i 


00203 

R 

040756 

R 

DAC 

CONST F*1 


00204 

R 

040772 

R 

OAC 

CONSTC*! 


00205 

R 

041001 

R 

DAC 

CONST H+l 


00206 

R 

100653 

R 

JMS 

CIRCLE 

/PLOT CIRCLE 

00207 

R 

101022 

R 

CMS 

SETEX5 

/FINISHED TEST #2? 

00210 

R 

600165 

R 

JMP 

TST2*3 

/NQi LOOP AGAIN 

00211 

R 

600212 

R 

JMP TST3 

/ J E S T 3 

/PLOT A QUAQRENT "COMPLIMENTED" 
/PLOTTED WITH'IEST #2, 

CIRCLE INSJQE THE CIRCLE 

00212 

R 

400036 

R 

TST3 XCT 

CPDF 

/clear display done 

00213 

R 

777700 

A 

LAW 

*100 


00214 

R 

041544 

R 

PAC 

CNTR1 


00215 

R 

201561 

R 

LAC 

(TAD K77470) 

/= TO 'TAD (=310' 

00216 

R 

040676 

R 

DAC 

CONSTA 


00217 

R 

040703 

R 

DAC 

CQNSTP 


00220 

R 

040771 

R 

DAC 

CONSTC 


00221 

R 

040726 

R 

DAC 

CONSTU 


00222 

R 

201562 

R 

LAC 

(TAP K310 

/= TO 'TAD (3101 

00223 

R 

040746 

R 

DAC 

CONSTE 


00224 

R 

040755 

R 

DAC 

CQNSTF 


00225 

R 

040721 

R 

DAC 

CONSTU 


00226 

R 

041000 

R 

DAC 

CQNSTH 


00227 

R 

100653 

R 

4MS 

CIRCLE 

/PLOT 'COMPLIMENTED' CIRCLE 

00230 

R 

101022 

R 

JMS 

SETEXS 

/FINISHED TEST #3, 

00231 

R 

600215 

R 

JMP 

TST3+3 

/NO, LOOP AGAIN, 

00232 

R 

400034 

R 

XCT 

EST 

/ERASE STORAGE TUBE 

00233 

R 

201563 

R 

LAC 

( T S T 4 


00234 

R 

040106 

R 

DAC 

OSTSWl 


00235 

R 

600427 

R 

JMP 

* EJECT 

EXIT 
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VPl^A 

SRC 

VP15A SYSTEM EXERCISER 





/TEST #4 






/PLOT A 6" CIRCLE VIA USING THE SAME X"Y TABLE AS TEST #2 





/VIA ROTATING 
/ 

ONCE LEFT, 

00236 

R 

400036 

R 

TST4 XCT 

CDPF 

00237 

R 

777700 

A 

LAW 

*100 

00240 

R 

041544 

R 

0 AC 

CNTR1 

00241 

R 

201564 

R 

LAC 

(CLLJRAl 

00242 

R 

040676 

R 

DAC 

CONST A 

00243 

R 

040703 

R 

DAC 

CONST B 

00244 

R 

040721 

R 

DAC 

CONSTC 

00245 

R 

040726 

R 

DAC 

CQNSTP 

00246 

R 

040746 

R 

DAC 

CQNSTE 

00247 

R 

040755 

R 

DAC 

CQNSTP 

00250 

R 

040771 

R 

DAC 

CONSTG 

00251 

R 

041000 

R 

DAC 

CQNSTH 

00252 

R 

100653 

R 

TST4A JMS 

CIRCLE . /plot The circle, 

00253 

R 

101022 

R 

JMS 

SETEX5 

00254 

R 

600252 

R 

JMP 

T5T4A ‘ 

00255 

R 

600256 

R 

JMP 

TST4B 





/TEST #48 






/PLOT THE QUAORENT CIRCLE OF TEST#4, 

i 

00256 

R 

777700 

A 

TST48 U AW 

*100 

00257 

R 

041544 

R 

DAC 

CNTR1 

00260 

R 

201565 

R 

LAC 

(TAD K 7 7 2 7 0 

00261 

R 

040677 

R 

DAC 

CQNSTA+1 

00262 

R 

040704 

R 

DAC 

CQNSTB*1 

00263 

R 

040727 

R 

DAC 

CONSTU+1 

00264 

R 

040772 

R 

DAC 

CONSTG+1 

00265 

R 

201566 

R 

LAC 

(TAD K610 

00266 

R 

040722 

R 

DAC 

CQNSTC+l 

00267 

R 

040747 

R 

DAC 

CONSTEtl 

00270 

R 

040756 

R 

DAC 

CONST P*1 

00271 

R 

041001 

R 

DAC 

CONSTH+1 

00272 

R 

100653 

R 

TST4C JMS 

CIRCLE /PLOT The complimented circle 

00273 

R 

101022 

R 

JMS 

SETEX5 

00274 

R 

600272 

R 

JMP 

TST4C ' 

00275 

R 

400034 

R 

XCT 

EST /ERASE THE STORAGE TUBE, 

00276 

R 

777777 

A 

LAW 


002/7 

R 

041546 

R 

DAC 

FLGPRV 

00300 

R 

201567 

R 

LAC 

(TST5 

00301 

R 

040106 

R 

DAC 

DSTSW1 

00302 

R 

600427 

R 

JMP 

EXJT 
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VPl^A 

SRC 

VP15A SYSTEM 

EXERCISER 






/TEST 

#5 







/PLOT 

A ’DIAMOND 

' WITH BISECTORS 

00303 

R 

400036 

R 

TST5 

XCT 

CPQF 

/CLEAR display done 

00304 

R 

777730 

A 


LAW 

«50 


00305 

R 

041544 

R 


DAC 

CNTR1 


00306 

R 

201570 

R 


LAC 

(1000 


00307 

R 

041524 

R 


DAC 

TEMPI 

/INITIALIZE the ' Y ' COORJNATE, 

00310 

R 

041526 

R 


DAC 

TEMP3 


00311 

R 

141525 

R 


D?M 

TEMP 2 

/INITIALIZE THE 'X' COORDINATE 

00312 

R 

101032 

R 


JMS 

JNCXY 

/plot the 'upper left' vector 

00313 

R 

141524 

R 


D2M 

tempi 

/initialize * Y * 

00314 

R 

201570 

R 


LAC 

(1000 


00315 

R 

041525 

R 


DAC 

TEMP2 

/INITIALIZE »x» 

00316 

R 

201524 

R 

TST5A 

LAC 

TEMPI 

/plot the i vert i cal' line 

00317 

R 

400033 

R 


XCT 

L YB 


00320 

R 

201525 

R 


LAC 

TEMP2 


00321 

R 

40003/ 

R 


XCT 

UXBD 


00322 

R 

100644 

R 


JMS 

wajtfg 


00323 

R 

441524 

R 


ISZ 

TEMPI 


00324 

R 

201524 

R 


LAC 

TEMPI 


00325 

R 

541571 

R 


SAD 

(1777 


00326 

R 

741000 

A 


SKP 



00327 

R 

600316 

R 


JMP 

TST5A 


00330 

R 

141524 

R 


DEM 

TEMPI 


00331 

R 

201570 

R 


LAC 

(1000 


00332 

R 

041525 

R 


DAC 

TEMP2 


00333 

R 

201571 

R 


LAC 

(i in 


00334 

R 

041526 

R 


DAC 

TEMP3 


00335 

R 

101032 

R 


JMS 

JNCXY 

/PLOT THE 1 LOWER RIGHT' VECTOR 

00336 

R 

141525 

R 


DEM 

TEMP2 


00337 

R 

201570 

R 


LAC 

(1000 


00340 

R 

041524 

R 


DAC 

TEMPI 


00341 

R 

041526 

R 


DAC 

TEMP3 


00342 

R 

101046 

R 


JMS 

JNXDCY 

/plot the 'lower lefti vector 

00343 

R 

201570 

R 


LAC 

(1000 


00344 

R 

041525 

R 


DAC 

TEMP2 


00345 

R 

201571 

R 


LAC 

(1777 


00346 

R 

041524 

R 


DAC 

TEMPI 


00347 

R 

041526 

R 


DAC 

TEMP3 


00350 

R 

101046 

R 


JMS 

iNXDCY 

/PLOT The 'UPPER RIGHT' VECTOR 

00351 

R 

141525 

R 


DEM 

TEMP2 


00352 

R 

201570 

R 


LAC 

<1000 


00353 

R 

041524 

R 


DAC 

TEMPI 
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VP1SA 

SRC 
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00354 

R 

201524 

R 

TST5B EAC 

TEMPI 

/PLOT 

the 

i HOP 1 20NT AL 1 

LINE 

00355 

R 

400033 

R 

XCT 

LYB 





00356 

R 

201525 

R 

LAC 

TEMP2 





00357 

R 

40003/ 

R 

XCT 

LX8D 





00360 

R 

100644 

R 

JMS 

WAITED 





00361 

R 

441525 

R 

IS? 

TEMP2" 





00362 

R 

201525 

R 

L, AC 

TEMP? 





00363 

R 

5415/1 

R 

SAD 

(1777 





00364 

R 

741000 

A 

SKP 






00365 

R 

600354 

R 

JMP 

TST5B 





00366 

R 

101022 

R 

JMS 

SETEX5 





00367 

R 

600306 

R 

JMP 

TST5+3 





00370 

R 

400034 

R 

XCT 

e:st 





00371 

R 

777777 

A 

LAW 






00372 

R 

041546 

R 

OAC 

flgdrv 





00373 

R 

201572 

R 

LAC 

c T S T 6 





00374 

R 

040106 

R 

DAC 

□STSW1 





00375 

R 

600427 

R 

JMP 

EXIT 









/TEST #6 










/PLOT A SERIES 

j 

OF f RANDOM * 

NUMBERS, 




00376 

R 

400036 

R 

TST6 XCT 

CDDF 





00377 

R 

200001 

R 

LAC 

KRAN 





00400 

R 

741200 

A 

SNA 






00401 

R 

600404 

R 

JMP 

TST6,1 





00402 

R 

740001 

A 

CMA 






00403 

R 

341573 

R 

TAD 

(1) 





00404 

R 

041544 

R 

TST6 » 1 DAC 

CNTR1 





00405 

R 

100473 

R 

JMS 

RANDOM 





00406 

R 

501571 

R 

AND 

(1777 





00407 

R 

400033 

R 

XCT 

LYB 

/LOAD 

the 

«Y' BUFFER, 


00410 

R 

100473 

R 

JMS 

RANDOM 





00411 

R 

5015/1 

R 

AND 

(1777 





00412 

R 

400037 

R 

XCT 

LXBD 

/LOAD 

,'x» 

AND DISPLAY 

» xb*y 

00413 

R 

100644 

R 

JMS 

waitfg 





00414 

R 

441544 

R 

IS? 

CNTR1 





00415 

R 

600405 

R 

JMP 

fST6, in 





00416 

R 

777774 

A 

LAW 

n 4 





00417 

R 

040020 

R 

DAC 

SYSERR 





00420 

R 

041546 

R 

DAC 

FLGDRV 





00421 

R 

777770 

A 

LAW 

*10 





00422 

R 

041550 

R 

DAC 

THRDCT 





0042 3 

R 

400036 

R 

XCT 

CDDF 





00424 

R 

441550 

R 

IS? 

THRDCT 





00425 

R 

600423 

R 

JMP 

««? 





00426 

R 

60042/ 

R 

JMP 

EXIT 









, EJECT 







page; 


VP15A SRC 


VP15A SYSTEM EXERCISER 


00427 

R 

2015*6 

R 

EXIT 

LAC 

FLGDRV 



00430 

R 

741200 

A 


SNA 


/WAS 

PROGRAM FLAG DRIVEN? 

00431 

R 

600442 

R 


JMP 

nqflag 

/NO 


00432 

R 

705512 

A 


RPL 




00433 

R 

751100 

A 


SPAJCLA 


/'AP[t ENABLED? 

00434 

R 

201543 

R 


LAC 

save ac 

/YES, 

Restore 'ac, 

00435 

R 

703344 

A 


PBR 




00436 

R 

620070 

R 


JMP* 

/ 

FOR A 
/ 

LAW 

SERVCE 







/SET UP 

-5" EXIT 



00437 

R 

777773 

A 

EXITM5 

"5 



00440 

R 

040020 

R 


DAC 

SYSERR 



00441 

R 

600432 

R 


JMP 

/ 

MINUS 5* 
/ 

RPL 

exit+3 







/EXIT ' 

IF NQI FtAG 

PRIVENi 


00442 

R 

705512 

A 

NOFI.AG 




00443 

R 

741100 

A 


SPA 


/WAS 

'API! ON? 

00444 

R 

600446 

R 


JMP 

errori 

/YES, 

ILLEGAL 'API' entry 

00445 

R 

600437 

R 


JMP 

EXJTM5 




/ERROR #li I U L El G A 1^, UPJ» ENTRY 
/ 


00446 

R 

777777 

A 

ERROR! 

LAW 


00447 

R 

040020 

R 


DAC 

SYSERH 

00450 

R 

040021 

R 


DAC 

syserh+i 

00451 

R 

201573 

R 


LAC 

a 

00452 

R 

040022 

R 


DAC 

ENCODE 

00453 

R 

600432 

R 


JMP 

/ 

EXIT*3 





/test 

/ 

FOR DATA 
/ 

0 

!SW10’ WH 

00454 

R 

000000 

A 

HOLDSVf 


00455 

R 

750004 

A 


LAS 


00456 

R 

500010 

R 


AND 

UPQSW+10 

00457 

R 

741200 

A 


SNA 


00460 

R 

620454 

R 


JMP# 

HQLDSW 

00461 

R 

200106 

R 


LAC 

DSTSW1 

00462 

R 

041542 

R 


DAC 

SAVDST 

00463 

R 

777777 

A 


LAW 

bJL 

00464 

R 

041541 

R 


DAC 

hulenb 

00465 

R 

201574 

R 


LAC 

(Hold * i 

00466 

R 

040106 

R 


DAC 

DSTSWl 

00467 

R 

60043/ 

R 


JMP 

EXITM5 

00470 

R 

201542 

R 

HOLD 1 1 

LAC 

SAVDSf 

00471 

R 

040106 

R 

DAC 

DSTSWl 

00472 

R 

600455 

R 


JMP 

HQLDSW*! 


/mask data swio 


, EJECT 



o 


o 


o 









o 
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VP15A 

SRC 

VP15A SYSTEM EXERCISER 


o 





/RANDOM 

N0, GENERATOR^ 

7 

EXIT WITH NU, IN THE 'AC, 

o 


00473 

R 

000000 

A 

RANDOM 

t 

0 



o 

o 

00474 

R 

341536 

R 


TAD 

RANA 



00475 

R 

341537 

R 


TAD 

RANB 



o 

00476 

R 

341540 

R 


TAD 

RANC 


o 

00477 

R 

041536 

R 


DAC 

RANA 



00500 

R 

750010 

A 


GLK 




o 

00501 

R 

341536 

R 


TAD 

RANA 


o 

00502 

R 

341537 

R 


TAD 

RANB 



00503 

R 

341540 

R 


TAD 

RANC 



o 

00504 

R 

041537 

R 


DAC 

RANB 


o 

00505 

R 

750010 

A 


GLK 




00506 

R 

341536 

R 


TAD 

RANA 



o 

00507 

R 

341537 

R 


TAD 

RANB 


o 

00510 

R 

341540 

R 


TAD 

RANC 



00511 

R 

041540 

R 


DAC 

RANC 




00512 

R 

620473 

R 


JMP» 

RANDOM 


o 

o 






/ 








/SUBROUTINE TO 

display 

A PULL LENGTH LINE EITHER HORIZONTAL 


o 





/OR VERTICAL AT 
/ 

A POINT 

DETERMINED BY THE CONTENTS DP THE AC, 

o 

00513 

R 

000000 

A 

PUNE 

r 

0 



o 

00514 

R 

740040 

A 

D I SP3 

XX 


/LOAD 'X' OR ' Y * BUFFER 

O 

00515 

R 

041522 

R 


DAC 

KSTOR1 

/SAVE POINT 


00516 

R 

750000 

A 


OLA 



o 

00517 

R 

740040 

A 

D I SP4 

XX 


/LOAD 'X' OR * Y» BUFFER AND DISPLAY, 

O 

00520 

R 

341573 

R 


TAD 

(1 


00521 

R 

041524 

R 


DAC 

TEMPI 



o 

00522 

R 

541575 

R 


SAD 

(2000 

/UPPER LIMIT? 

O 

00523 

R 

741000 

A 


SKP 


/YES, EXIT 


00524 

R 

600527 

R 


JMP 

LINEA 

/NO i REPEAT 


o 

00525 

R 

201522 

R 


LAC 

KSTOR1 


O 

00526 

R 

620513 

R 


JMP» 

/ 

JMS 

PLINE" 


o 

00527 

R 

100644 

R 

LINEA 

WA JTFG 

/wait fqr done flag 

O 

00530 

R 

201^24 

R 


LAC 

tempi" 


00531 

R 

600517 

R 


JMP 

i EJECT 

QISP4 


O 

o 









o 









O 

o 









O 

o 









O 

0 









O 

o 









O 

o 









o 


10 


VPl^A 

SRC 

VP J,5A system exerciser 






/subroutine to 

UISPLAY A FU|_t 

LINE (MINUS INCREMENTS) 





/(HORIZONTAL, OR 

VERTICAL) AT 

THE POSITION DETERMINED BY 





/THE CONTENTS OF THE AC f 
/ 


00532 

R 

000000 

A 

MUNE 0 



00533 

R 

740040 

A 

0 I SP5 XX 


/LOAD 'X' OR 'Y< BUFFER 

00534 

R 

041522 

R 

DAC 

KSTOR1 


00535 

R 

201534 

R 

U AC 

EDGE 


00536 

R 

740040 

A 

DISP6 XX 


/LOAD 1 X ' OR 1 Y l AND DT 

00537 

R 

341576 

R 

TAD 


/decrement point plot 

00540 

R 

041524 

R 

DAC 

tempi 


00541 

R 

541576 

R 

SAD 

< 

/FINISHED? 

00542 

R 

741000 

A 

SKP 


/YES 

00543 

R 

600546 

R 

JMP 

LINED 


00544 

R 

201522 

R 

LAC 

KSTGR1 


00545 

R 

620532 

R 

JMP** 

/ 

1 1 NEB JMS 

MLJNE' 


00546 

R 

100644 

R 

waited 

/wait For done flag 

00547 

R 

201524 

R 

LAC 

TEMPI 


00550 

R 

600536 

R 

JMP 

DISP6 






/SUBROUTINE TP 

DISPLAY A DIAGONAL LINE FROM 





/lower left TO 
/ 

PIAG1 0 

UPPER RIGHT. 


00551 

R 

000000 

A 



00552 

R 

750000 

A 

OLA 


/HERO "X" 

00553 

R 

040555 

R 

DAC 

i +2 

/HERO "Y” 

00554 

R 

100601 

R 

JMS 

POINT 

/DISPLAY x»y 

00555 

R 

000000 

A 

0 


/*X ! 

00556 

R 

440555 

R 

ISH 


/INCREMENT u Y’ 1 

00557 

R 

200555 

R 

LAC 

t 92 

/get *x? 

00560 

R 

541575 

R 

SAD 

12000 

/FINISHED LINE? 

00561 

R 

620551 

R 

JMP** 

QiAGl 

/yes, exit 

00562 

R 

600554 

R 

JMP 

/ 

/SUBROUTINE to 

i *6 

/NO, DISPLAY NEXT POINT 





DISPLAY A DIAGONAL LINE FROM 





/UPPER LEFT TO 
/ 

D I A G 2 0 

LOWER RIGHT 


00563 

R 

000000 

A 



00564 

R 

201571 

R 

LAC 

(1777 

/INITIALISE >Y' 

00565 

R 

0405/0 

R 

DAC 

.♦3 


30566 

R 

750000 

A 

CIA 


/ZERO X 

00567 

R 

100601 

R 

JMS 

POINT 

/plot x,y 

00570 

R 

001777 

A 

1777 


/Y 

00571 

R 

750001 

A 

CLAJCMA 


/SUBTRACT 1 

00572 

R 

340570 

R 

TAD 

i *2 

/FROM "Y" AMD 

00573 

R 

040570 

R 

DAC 

i*3 

/RESTORE 

00574 

R 

541576 

R 

SAD 


/ALL POINTS DISPLAYED? 

00575 

R 

620563 

R 

JMP** 

01 AG2 

/yes, EXIT 

00576 

R 

441547 

R 

ISH 

COORD 

/NO, INCREMENT "X" 

00577 

R 

201547 

R 

LAC 

COORD 


00600 

R 

600567 

R 

JMP 

i«U 

/DISPLAY NEXT POINT 


.EJECT 



PAGE 11 VP1»A SRC VP15A SYSTEM EXERCISER 

/SUBROUTINE TO DISPLAY A POINT WHERE THE ' 
/IS IN THE 'AC' AND THE 'Y' COORDINATE IS 
/ 


00601 

R 

000000 

A 

POINT 0 




00602 

R 

400032 

R 

XCT 

UB 

/LOAD 

*X f 

00603 

R 

041547 

R 

DAC 

COORD 



00604 

R 

220601 

R 

LAC# 

POINT 



00605 

R 

400040 

R 

XCT 

lybd 

/load 

fy* 

00606 

R 

100644 

R 

JMS 

waitfg 

/WAIT 

FOR 

00607 

R 

440601 

R 

IS2 

POINT 



00610 

R 

201547 

R 

LAC 

COORD 



006U 

R 

620601 

R 

JMP# 

y 

POINT 







/ 

/INCREMENT f RUN 

COUNTER? 

AND SETUP TO 

EX I 





/'MINUS 5' AFTEH PLOT ING 
/ 

•100* POINTS 


00612 

R 

000000 

A 

/ 

INCRUN 0 




00613 

R 

441545 

R 

JSZ 

RUNCTR 



00614 

R 

620612 

R 

JMP# 

INCRUN 



00615 

R 

200612 

R 

LAC 

INCRUN 



00616 

R 

040106 

R 

DAC 

03TSW1 



00617 

R 

777634 

A 

LAW 

^144 



00620 

R 

041545 

R 

DAC 

RUNCTR 



00621 

R 

777777 

A 

LAW 




00622 

R 

041546 

R 

DAC 

FLGDRV 



00623 

R 

441550 

R 

ISH 

THRDCT 



00624 

R 

600427 

R 

JMP 

/ 

LAW 

EXIT 



00625 

R 

7777/6 

A 

*2 



00626 

R 

041550 

R 

DAC 

THRDCT 



00627 

R 

201577 

R 

LAC 

( I NCR 1 1 ) 



00630 

R 

040106 

R 

DAC 

DSTSW1 



00631 

R 

400035 

R 

XCT 

SDDF 



00632 

R 

600631 

R 

JMP 

i " 1 



00633 

R 

400036 

R 

XCT 

CPDF 



00634 

R 

777777 

A 

LAW 




00635 

R 

041541 

R 

DAC 

HOLENB 



00636 

R 

600437 

R 

JMP 

/ 

I NCR » 1 LAC 

EXITM5 



00637 

R 

200644 

R 

WAJTFG 



00640 

R 

040106 

R 

DAC 

QSTSW1 



00641 

R 

777777 

A 

LAW 




00642 

R 

041541 

R 

DAC 

HQLENB 



00643 

R 

600437 

R 

JMP 

EXITM5 




( EJECT 


X' COORDINATE 
IN "JMS*1" 


BUFFER 


AND DISPLAY 'YBiXB 
DONE FLAG 


page 12 vpipa src vpisa system exerciser 

/WAIT FOR DISPLAY DONE FLAG AND CLEAR FLAG, 
/ 


00644 

R 

000000 

A 

waitfg 

0 



00645 

R 

100612 

R 


JMS 

INCRUN 

/increment RUN COUNTER, 

00646 

R 

400035 

R 


XCT 

SPDF 

/SKIP in display done, 

00647 

R 

600646 

R 


JMP 

1 "1 


00650 

R 

400036 

R 


XCT 

CDDF 

/clear display done 

00651 

R 

100454 

R 


JMS 

hqldsw 

/CHECK FOR THE INHIBIT SW, 

00652 

R 

620644 

R 


JMP° 

J 

WAITFG 






/PLOT ' 

f 

4' QUAPRENTS OF A CIRCLE 

i 


00653 

R 

000000 

A 

circle 

0 



00654 

R 

201600 

R 


LAC 

(XYAXIS 


00655 

R 

041527 

R 


DAC 

YPOINT 

/address of 'x-y' coordinate table 

00656 

R 

100671 

R 


JMS 

PLQTUR 

/PLOT THE 'UPPER RIGHT' QUAORENT 

00657 

R 

201601 

R 


LAC 

( T ABEND-* 1 


00660 

R 

041527 

R 


DAC 

YPOINT 


00661 

R 

100712 

R 


JMS 

PLOTUL 

/PLOT THE 'UPPER LEFT' QUAORENT 

00662 

R 

201600 

R 


LAC 

(XYAXIS 


00663 

R 

041527 

R 


DAC 

YPQ J NT 


00664 

R 

100737 

R 


JMS 

PLQTLL 

/plot the 'lower right' quadrent, 

00665 

R 

201601 

R 


LAC 

C T ABEND-*! 


00666 

R 

041527 

R 


DAC 

YPOINT 


00667 

R 

100764 

R 


JMS 

PLOTLP 

/plot the 'lower right' quadrent, 

00670 

R 

620653 

R 


JMP® 

i 

CIRCLE 






/SUBROUTINE TO 

J 

PLOT THE t UPPER 

RIGHT' QUADRENT OF A CIRCLE, 

00671 

R 

000000 

A 

plqtur 

f 

0 



00672 

R 

221527 

R 


LAC# 

YPOINT 


00673 

R 

541576 

R 


SAD 

t»i 

/end of table? 

00674 

R 

620671 

R 


JMP# 

PLOTUR 

/yes, exit 

00675 

R 

501602 

R 


AND 

(777 

/mask 'X' coordinate 

00676 

R 

740040 

A 

CONSTA 

XX 


/ 1 NOP » OR 'QUADRENT compliment 

00677 

R 

740040 

A 


XX 



00700 

R 

341570 

R 


TAD 

(1000 

/add screen off-set 

00701 

R 

400032 

R 


XCT 

LXB 

/load THE 'X' BUFFER, 

00702 

R 

101011 

R 


JMS 

MASKY 

/MASK » Y ' COORDINATE 

00703 

R 

740040 

A 

CQNSTB 

XX 


/ 1 NOP 1 OR 'QUADRENT COMPLIMENT 

00704 

R 

740040 

A 


XX 



00705 

R 

341570 

R 


TAD 

(1000 

/ADD SCREEN OFF-SET 

00706 

R 

400040 

R 


XCT 

LYBD 

/LOAD »Y' AND DISPLAY 'YB-XB' 

00707 

R 

100644 

R 


JMS 

WAITFG 


00710 

R 

441527 

R 


ISH 

YPOINT 

/INCREMENT COORDINATE POINTER, 

00711 

R 

600672 

R 


JMP 

PLQTUR+1 

/DISPLAY NEXT POINT 


.EJECT 
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VP15 A 

SRC 

VP15A SYSTEM EXERCISER 






/SUBROUTINE TO 

J 

PLOT THE ’UPPER 

LEFT' QUADRENT OF A CIRQUE 

00712 

R 

000000 

A 

PLOTUL 

r 

0 



00713 

R 

221527 

R 


LAC# 

YPQINT 


00714 

R 

541576 

R 


SAP 

( -1 

/END OF TABLE? 

00715 

R 

620712 

R 


JMP* 

PLOTUL 

/yes, EXIT 

00716 

R 

501602 

R 


AND 

(777 

/mask 'X' coordinate 

00717 

R 

740001 

A 


CM A 



00720 

R 

341573 

R 


TAP 

(1 


00721 

R 

740040 

A 

CQNSTC 

XX 


/NOP OR TAD ("310 

00722 

R 

740040 

A 


XX 



00723 

R 

341570 

R 


TAP 

(1000 

/ADD SCREEN OFF-SET, 

00724 

R 

400032 

R 


XCT 

LX8 

/LUAD 'X' BUFFER 

00725 

R 

101011 

R 


JMS 

masky 

/GET ' Y * COORDINATE 

00726 

R 

740040 

A 

CONSTO 

XX 



00727 

R 

740040 

A 


XX 



00730 

R 

341570 

R 


TAP 

(1000 

/ADO SCREEN OFF-SET, 

00731 

R 

400040 

R 


XCT 

LYBP 

/LOAD 'Y' AND DI5PLAY 'YB-XB' 

00732 

R 

100644 

R 


JMS 

WAJTFG 

/INCREMENT ' RUN t counter 

00733 

R 

201527 

R 


LAC 

YPQINT 


00734 

R 

341576 

R 


TAD 

( 

/DECREMENT 'COORDINATE' POINTER 

00735 

R 

041527 

R 


DAC 

YPQINT 

/SAVE IT 

00736 

R 

'600713 

R 


JMP 

/ 

PLOTUL*! 

/PLOT NEXT POINT 


/subroutine: to plot THE ’LOWER left* quadrent of a CIRCLE, 
/ 


00737 

R 

000000 

A 

PLQTIL 

0 



00740 

R 

221527 

R 


LAC# 

YPQINT 


00741 

R 

541576 

R 


SAP 

HI 

/end of table? 

00742 

R 

620737 

R 


JMP# 

PLOTLL 

/yes, exit 

00743 

R 

501602 

R 


AND 

(777 

/mask 'X' COORDINATE 

00744 

R 

740001 

A 


CM A 



00745 

R 

341573 

R 


TAD 

(*1 


00746 

R 

740040 

A 

CONSTE 

XX 


/ ' NOP ' OR TAD (-310 

00747 

R 

740040 

A 


XX 



00750 

R 

341570 

R 


TAD 

(1000 

/ADD SCREEN OFF-SET 

00751 

R 

400032 

R 


XCT 

LXB 

/LOAD 'X' BUFFER 

00752 

R 

101011 

R 


JMS 

MASKY 

/mask 'y' coordinate 

00753 

R 

740001 

A 


CM A 



00754 

R 

3415/3 

R 


TAD 

<1 


00755 

R 

740040 

A 

CONSTF 

XX 


/NOP QR TAD (-310 

00756 

R 

740040 

A 


XX 



00757 

R 

341570 

R 


TAD 

(1000 

/ADD SCREEN OFF-SET, 

00760 

R 

400040 

R 


XCT 

LYBO 

/LOAD <Y' BUFFER AND DISPLAY ' YB-XB 

00761 

R 

100644 

R 


JMS 

WAJTFG 


00762 

R 

441527 

R 


ISH 

YPQINT 

/INCREMENT 'COORDINATE' POINTER 

00763 

R 

600740 

R 


JMP 

PLOTLL*! 

/PLOT NEXT POINT 


, EJECT 


PAGE JL4 


VP15 A SRC 


VP15A SYSTEM EXERCISER 


/SUBROUTINE 

/ 


TO PLOT THE t LOWER RIGHT* GUADRENT OF A CIRCLE, 


00764 

R 

000000 

A 

PLOTLR 

0 

00765 

R 

221527 

R 


LAC» 

00766 

R 

541576 

R 


SAD 

00767 

R 

620764 

R 


JMP* 

00770 

R 

501602 

R 


AND 

00771 

R 

740040 

A 

CONSTG 

XX 

00772 

R 

740040 

A 


XX 

007/3 

R 

341570 

R 


TAD 

00774 

R 

400032 

R 


XCT 

00775 

R 

101011 

R 


JMS 

00776 

R 

740001 

A 


CM A 

00777 

R 

341573 

R 


TAD 

01000 

R 

740040 

A 

CQNSTM 

XX 

01001 

R 

740040 

A 


XX 

01002 

R 

341570 

R 


TAD 

01003 

R 

400040 

R 


XCT 

01004 

R 

100644 

R 


JMS 

01005 

R 

201527 

R 


LAC 

01006 

R 

341576 

R 


TAP 

01007 

R 

041527 

R 


DAC 

01010 

R 

600765 

R 

/MASK 

JMP 

/ 

THE * Y * Cl 
/ 

0 

01011 

R 

000000 

A 

masky 

01012 

R 

221527 

R 


LAC# 

01013 

R 

501603 

R 


AND 

01014 

R 

746020 

A 


CLURTR 

01015 

R 

742020 

A 


RTR 

01016 

R 

742020 

A 


rtr 

01017 

R 

742020 

A 


RTR 

01020 

R 

740020 

A 


RAR 

01021 

R 

621011 

R 

JMP* 

/ 

/INCREMENT PASS 
/ 

01022 

R 

000000 

A 

SETEX5 

t 

0 

01023 

R 

201022 

R 


LAC 

01024 

R 

040106 

R 


DAC 

01025 

R 

041541 

R 


DAC 

01026 

R 

441022 

R 


ISZ 

01027 

R 

441544 

R 


IS2 

01030 

R 

600437 

R 


JMP 

01031 

R 

621022 

R 


JMP* 


Y P 0 1 N I 

PLOTLH 

(777 


(1000 

L*B 

masky 


(1 


(1000 
LYBD 
WAITFG 
YPO I NT 
( *1 

YPO I NT 
PLOTLR*! 


/END OF table? 

/YES EXIT 

/mask * X * COORDINATE 


/load the *x» buffer, 

/MASK ’Y* COORDINATE 


/add screen OF’F«$ET 

/LOAD THE * Y ■ BUFFER AND DISPLAY 

/INCREMENT ‘RUN* COUNTER 

/decrement coordinate pointer 


coordinate and exit will result in the ' AC* , 


ypqint 

(777000 


MASKY 

CPUNTER and SET DST5W1 


SETEX5 

PSTSW1 

NQLENB 

setexb 
CNTR1 ' 
exjtmb 

SETEX5 


EJECT 
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/SUBROUTINE TO INCREMENT AND PLOT A predetermined 






/ » x ♦ and *y* 
/ 

JNCXY 0 

COUNT *1000* 

POINTS, 

03,032 

R 

000000 

A 



01033 

R 

201524 

R 

LAC 

TEMPI 


01034 

R 

400033 

R 

XCT 

LYB 

/LOAD » Y * BUFFER 

01035 

R 

441524 

R 

IS2 

TEMPI 

01036 

R 

201525 

R 

LAC 

TEMP2 


01037 

R 

400037 

R 

XCT 

LXBD 

/LOAD 'X' AND DISPLAY >XB-YB 

01040 

R 

441525 

R 

JS2 

TEMP2 


01041 

R 

100644 

R 

JMS 

waited ' 


01042 

R 

201525 

R 

LAC 

TEMP2 


01043 

R 

541526 

R 

SAD 

TEMP3 


01044 

R 

621032 

R 

JMP** 

JNCXY 


01045 

R 

601033 

R 

JMP 

/ 

/SUBROUTINE 

/ 

INCXY+1 






TQ INCREMENT 

'XI and decrement * Y ' , 

01046 

R 

000000 

A 

/ 

INXDCV 0 



01047 

R 

201524 

R 

LAC 

TEMPI 


01050 

R 

400033 

R 

XCT 

LYB 


01051 

R 

201524 

R 

LAC 

TEMPI 


01052 

R 

3415/6 

R 

TAD 

< 


01053 

R 

041524 

R 

DAC 

TEMPI 


01054 

R 

201525 

R 

LAC 

TEMP2 


01055 

R 

400037 

R 

XCT 

LXBD 


01056 

R 

441525 

R 

ISH 

TEMP2 


01057 

R 

100644 

R 

UMS 

WAITFG 


01060 

R 

201525 

R 

LAC 

TEMP2 - 


01061 

R 

541526 

R 

SAD 

TEMP3 


01062 

R 

621046 

R 

JMP** 

INXDCY 


01063 

R 

601047 

R 

JMP 

INXDCY+1 



.EJECT 


o 


o 

o 
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VP15A 

SRC 

VP15A SYSTEM EXERCISER 


o 





/TABLE 

OF ' Xf Y 1 COORDINATES FOR A 4" CIRCLE 

o 







/Y t X 



01064 

R 

777777 

A 


777777 


o 

01065 

R 

000310 

A 

X Y A X I S 

0310 

o 


01066 

R 

001310 

A 


1310 



01067 

R 

002310 

A 


2310 

o 

o 

01070 

R 

003310 

A 


3310 


01071 

R 

004310 

A 


4310 



01072 

R 

005310 

A 


5310 

o 

o 

01073 

R 

006310 

A 


6310 


010/4 

R 

007310 

A 


7310 



01075 

R 

010310 

A 


10310 

o 

o 

01076 

R 

011310 

A 


11310 


01077 

R 

012310 

A 


12310 



01100 

R 

313310 

A 


13310 

o 

o 

01101 

R 

014310 

A 


14310 


01102 

R 

015310 

A 


15310 



01103 

R 

016310 

A 


16310 

o 

o 

01104 

R 

017310 

A 


17310 


01105 

R 

020307 

A 


20307 



01106 

R 

021307 

A 


21307 

o 

o 

01107 

R 

022307 

A 


22307 

01110 

R 

023307 

A 


23307 



01111 

R 

024307 

A 


24307 

o 

o 

01112 

R 

025307 

A 


25307 

01113 

R 

026307 

A 


26307 



01114 

R 

027307 

A 


27307 

o 

o 

01115 

R 

03030/ 

A 


30307 

01116 

R 

031306 

A 


31306 



01117 

R 

032306 

A 


32306 

o 

o 

01120 

R 

033306 

A 


33306 


01121 

R 

034306 

A 


34306 



01122 

R 

035306 

A 


35306 

o 

o 

01123 

R 

036306 

A 


36306 

01124 

R 

037306 

A 


3/306 



01125 

R 

040305 

A 


40305 

o 

o 

01126 

R 

041305 

A 


41305 


01127 

R 

042305 

A 


42305 



01130 

R 

043305 

A 


43305 

o 

o 

01131 

R 

044305 

A 


44305 


01132 

R 

045305 

A 


45305 



01133 

R 

046304 

A 


46304 

o 

o 

01134 

R 

047304 

A 


47304 


01135 

R 

050304 

A 


50304 



01136 

R 

051504 

A 


51304 

o 

o 

01137 

R 

052504 

A 


52304 


01140 

R 

053303 

A 


53303 



01141 

R 

054303 

A 


54303 


o 

01142 

R 

055303 

A 


55303 

o 


01143 

R 

056303 

A 


56303 



01144 

R 

057302 

A 


57302 

o 

o 

01145 

R 

060302 

A 


60302 


01146 

R 

061302 

A 


61302 



o o 


o 


o 
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VP15A 

SRC 

01147 

R 

062302 

A 

01150 

R 

063301 

A 

01151 

R 

064301 

A 

01152 

R 

065301 

A 

01153 

R 

066301 

A 

01154 

R 

067300 

A 

01155 

R 

070300 

A 

01156 

R 

071300 

A 

01157 

R 

072277 

A 

01160 

R 

073277 

A 

01161 

R 

074277 

A 

01162 

R 

075276 

A 

01163 

R 

076276 

A 

01164 

R 

077276 

A 

01165 

R 

100275 

A 

01166 

R 

101275 

A 

01167 

R 

102275 

A 

01170 

R 

103274 

A 

01171 

R 

104274 

A 

01172 

R 

105274 

A 

01173 

R 

106273 

A 

01174 

R 

107273 

A 

01175 

R 

110273 

A 

01176 

R 

111272 

A 

01177 

R 

112272 

A 

01200 

R 

113271 

A 

01201 

R 

114271 

A 

01202 

R 

115271 

A 

01203 

R 

116270 

A 

01204 

R 

1172/0 

A 

01205 

R 

120267 

A 

01206 

R 

12126 7 

A 

01207 

R 

122266 

A 

01210 

R 

123266 

A 

01211 

R 

124266 

A 

01212 

R 

125265 

A 

01213 

R 

126265 

A 

01214 

R 

127264 

A 

01215 

R 

130264 

A 

01216 

R 

131263 

A 

01217 

R 

132263 

A 

01220 

R 

133262 

A 

01221 

R 

134262 

A 

01222 

R 

135261 

A 

01223 

R 

136261 

A 

01224 

R 

137260 

A 

01225 

R 

140257 

A 

01226 

R 

141257 

A 

01227 

R 

142256 

A 

01230 

R 

143256 

A 

01231 

R 

144255 

A 

01232 

R 

145255 

A 

01233 

R 

146254 

A 


VP15A SYSTEM EXERCISER 

62302 

633031 

64301 , 

65301 

66301 

67300 

70300 

71300 

72277 

73277 

74277 

75276 

76276 

77276 

100275 

101275 

102275 

103274 

104274 

105274 

106273 

107273 

110273 

111272 

112272 

113271 

114271 

115271 

116270 

117270 

120267 

121267 

122266 

123266 

124266 

125265 

126265 

127264 

130264 

131263 

132263 

133262 

134262 

135261 

136261 

137260 

140257 

141257 

142256 

143256 

144255 

145255 

146254 


o 


o 


o 
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VP15A 

SRC 

VP15A SYSTE 

o 

01234 

R 

147253 

A 

147253 


01235 

R 

150253 

A 

150253 

o 

01236 

R 

151252 

A 

151252 

01237 

R 

152252 

A 

152252 


01240 

R 

153251 

A 

153251 

G 

01241 

R 

154250 

A 

154250 

01242 

R 

155250 

A 

155250 


01243 

R 

156247 

A 

156247 

O 

01244 

R 

157246 

A 

157246 

01245 

R 

160246 

A 

160246 


01246 

R 

161245 

A 

161245 

O 

01247 

R 

162244 

A 

162244 

01250 

R 

163244 

A 

163244 


01251 

R 

164243 

A 

164243 

O 

01252 

R 

165242 

A 

165242 

01253 

R 

166241 

A 

166241 


01254 

R 

167241 

A 

167241 

O 

01255 

R 

170240 

A 

170240 

01256 

R 

171237 

A 

171237 


01257 

R 

172236 

A 

172236 

O 

01260 

R 

173236 

A 

173236 

01261 

R 

174235 

A 

174235 


01262 

R 

175234 

A 

175234 

o 

01263 

R 

176233 

A 

176233 

01264 

R 

177233 

A 

177233 


01265 

R 

200232 

A 

200232 

o 

01266 

R 

201231 

A 

201231 

01267 

R 

202230 

A 

202230 


01270 

R 

203227 

A 

203227 


01271 

R 

204226 

A 

204226 

o 

01272 

R 

205226 

A 

205226 


01273 

R 

206225 

A 

206225 


01274 

R 

207224 

A 

207224 

o 

01275 

R 

210223 

A 

210223 


01276 

R 

211222 

A 

211222 


01277 

R 

212221 

A 

212221 

o 

01300 

R 

213220 

A 

213220 

01301 

R 

214217 

A 

214217 


01302 

R 

215216 

A 

215216 

o 

01303 

R 

216215 

A 

216215 


01304 

R 

217214 

A 

217214 


01305 

R 

220213 

A 

220213 

o 

01306 

R 

221212 

A 

221212 

01307 

R 

222211 

A 

222211 


01310 

R 

223210 

A 

223210 

o 

01311 

R 

224207 

A 

224207 


01312 

R 

225206 

A 

225206 


01313 

R 

226205 

A 

226205 

o 

01314 

R 

226204 

A 

226204 

01315 

R 

227203 

A 

227203 


01316 

R 

230202 

A 

230202 

o 

01317 

R 

231201 

A 

231201 

01320 

R 

232200 

A 

232200 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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SRC VP15A SYSTEM EXERCISER 


01321 

R 

233177 

A 

01322 

R 

2331/6 

A 

01323 

R 

234175 

A 

01324 

R 

235174 

A 

01325 

R 

236173 

A 

01326 

R 

236X72 

A 

01327 

R 

237171 

A 

01330 

R 

240X70 

A 

01331 

R 

241X67 

A 

01332 

R 

241X66 

A 

01333 

R 

242165 

A 

01334 

R 

243164 

A 

01335 

R 

244163 

A 

01336 

R 

244162 

A 

01337 

R 

245161 

A 

01340 

R 

246160 

A 

01341 

R 

246157 

A 

01342 

R 

247156 

A 

01343 

R 

250155 

A 

01344 

R 

250154 

A 

01345 

R 

251153 

A 

01346 

R 

252X52 

'A 

01347 

R 

252161 

A 

01350 

R 

253X50 

A 

01351 

R 

253X47 

A 

01352 

R 

254X46 

A 

01353 

R 

255X45 

A 

01354 

R 

255X44 

A 

01355 

R 

256X43 

A 

01356 

R 

256142 

A 

01357 

R 

257141 

A 

01360 

R 

257140 

A 

01361 

R 

260137 

A 

01362 

R 

261135 

A 

01363 

R 

261135 

A 

01364 

R 

262134 

A 

01365 

R 

262133 

A 

01366 

R 

263X32 

A 

01367 

R 

263X31 

A 

01370 

R 

264130 

A 

01371 

R 

264127 

A 

01372 

R 

265126 

A 

01373 

R 

265125 

A 

01374 

R 

266124 

A 

013/5 

R 

266123 

A 

01376 

R 

266122 

A 

01377 

R 

267121 

A 

01400 

R 

267X20 

A 

01401 

R 

270117 

A 

01402 

R 

270116 

A 

01403 

R 

271115 

A 

01404 

R 

271114 

A 

01405 

R 

2711X3 

A 


23317/ 

233176 

23417b 

235174 

236173 

236172 

237171 

240170 

241167 

241166 

242165 

243164 

244163 

244162 

245161 

246160 

246157 

247156 

250155 

250154 

251153 

252152 

252151 

253150 

253147 

254146 

255145 

255144 

256143 

256142 

257141 

257140 

260137 

261136 

261135 

262134 

262133 

263132 

263131 

264130 

264127 

265126 

265125 

266124 

266123 

266122 

267121 

267120 

270117 

270116 

271115 

271114 

271113 



o 


o 
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o 

0X406 

R 

272112 

A 

272112 


01407 

R 

272111 

A 

272111 

o 

01410 

R 

273110 

A 

273110 

01411 

R 

273107 

A 

273107 


01412 

R 

273106 

A 

273106 


01413 

R 

274105 

A 

274105 

G 

01414 

R 

274104 

A 

274104 


01415 

R 

274103 

A 

274103 

O 

01416 

R 

275102 

A 

275102 

01417 

R 

275101 

A 

275101 


01420 

R 

275100 

A 

275100 

O 

01421 

R 

2760/7 

A 

276077 

01422 

R 

2760/6 

A 

276076 


01423 

R 

276075 

A 

276075 

O 

01424 

R 

277074 

A 

277074 

01425 

R 

277073 

A 

277073 


01426 

R 

277072 

A 

277072 


01427 

R 

300071 

A 

300071 

O 

01430 

R 

300070 

A 

300070 


01431 

R 

300067 

A 

300067 

O 

01432 

R 

301066 

A 

301066 

01433 

R 

301065 

A 

301065 

301064 


01434 

R 

301064 

A 


01435 

R 

301063 

A 

301063 

o 

01436 

R 

302062 

A 

302062 

01437 

R 

302061 

A 

302061 


01440 

R 

302060 

A 

302060 

o 

01441 

R 

302057 

A 

302057 

01442 

R 

303056 

A 

303056 


01443 

R 

303055 

A 

303055 

o 

01444 

R 

303054 

A 

303054 


01445 

R 

303053 

A 

303053 


01446 

R 

304052 

A 

304052 

o 

01447 

R 

304051 

A 

304051 

01450 

R 

304050 

A 

304050 


01451 

R 

304047 

A 

304047 

o 

01452 

R 

304046 

A 

304046 

01453 

R 

305045 

A 

305045 


01454 

R 

305044 

A 

305044 

o 

01455 

R 

305043 

A 

305043 

01456 

R 

305042 

A 

305042 


01457 

R 

305041 

A 

305041 

o 

01460 

R 

305040 

A 

305040 

01461 

R 

306037 

A 

306037 


01462 

R 

306036 

A 

306036 

o 

01463 

R 

306035 

A 

306035 

01464 

R 

306034 

A 

306034 


01465 

R 

306033 

A 

306033 

o 

01466 

R 

306032 

A 

306032 

01467 

R 

306031 

A 

306031 


01470 

R 

307030 

A 

307030 

o 

01471 

R 

307027 

A 

30702/ 

01472 

R 

307026 

A 

307026 


O 


O 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



o 


o 
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o 

01473 

R 

307025 

A 


307025 


01474 

R 

307024 

A 


307024 


014/5 

R 

307023 

A 


307023 

o 

01476 

R 

307022 

A 


307022 


01477 

R 

307021 

A 


30702i 


01500 

R 

307020 

A 


307020 

c 

01501 

R 

310017 

A 


310017 


01502 

R 

310016 

A 


310016 

o 

01503 

R 

310015 

A 


310015 

01504 

R 

310014 

A 


310014 


01505 

R 

310013 

A 


310013 


01506 

R 

310012 

A 


310012 

o 

01507 

R 

310011 

A 


310011 


01510 

R 

310010 

A 


310010 

o 

01511 

R 

310007 

A 


310007 

01512 

R 

310006 

A 


310006 


01513 

R 

310005 

A 


310005 

o 

01514 

R 

310004 

A 


310004 

01515 

R 

310003 

A 


310003 


01516 

R 

310002 

A 


310002 

o 

01517 

R 

310001 

A 


310001 

01520 

R 

310000 

A 


310000 


01521 

R 

777777 

A 

TABEND 

777777 

o 

01522 

R 

000000 

A 

KST0R1 

0 

01523 

R 

000000 

A 

KSTQR2 

0 


01524 

R 

000000 

A 

TEMPI 

0 

o 

01525 

R 

000000 

A 

TEMP2 

0 

01526 

R 

000000 

A 

TEMP3 

0 


01527 

R 

000000 

A 

YPOINT 

0 

o 

01530 

R 

7774/0 

A 

K77470 

777470 

01531 

R 

000310 

A 

K310 

310 


01532 

R 

777155 

A 

K 7 7 2 7 0 

777155 

o 

01533 

R 

000613 

A 

K610 

613 ' 

01534 

R 

001777 

A 

EDGE 

1777 


01535 

R 

001000 

A 

CENTER 

1000 

o 

01536 

R 

137260 

A 

RANA 

137260 

01537 

R 

643767 

A 

RANB 

643767 


01540 

R 

765432 

A 

RANG 

765432 

o 

01541 

R 

000000 

A 

HQUNB 

0 

01542 

R 

000000 

A 

SAVDST 

0 


01543 

R 

000000 

A 

SAVE AC 

0 

o 

01544 

R 

000000 

A 

CNTR1 

0 

01545 

R 

000000 

A 

RUNCTR 

0 


01546 

R 

000000 

A 

flgdrv 

0 

o 

01547 

R 

000000 

A 

COORD 

0 

01550 

R 

000000 

A 

TMRDCT 

0 


■EJECT 

O 

O 

O 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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SRC 


000000 R 

01551 R 000002 A 

01552 R 000107 R #L 

01553 R 400032 R H 

01554 R 400040 R % 

01555 R 400033 R <>L 

01556 R 400037 R «L 

01557 R 000162 R **L 

01560 R 740000 A ftj, 

01561 R 341530 R »L 

01562 R 341531 R ^ 

01563 R 000236 R 

01564 R 744010 A «L 

01565 R 341532 R *1 

01566 R 341533 R *L 

01567 R 000303 R «L 

01570 R 001000 A 

01571 R 001777 A #L 

01572 R 000376 R <*£ 

01573 R 000001 A H 

01574 R 000470 R 

01575 R 002000 A 

01576 R 777777 A <>L 

01577 R 000637 R <»L 

01600 R 001065 R 

01601 R 001520 R 

01602 R 000777 A #1 

01603 R 777000 A *L 

S j £E?01606 


* END UODSW 


NO ERROR LINES 
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CPDF 

00036 

R 

center 

01535 

R 

CQNSTA 

00676 

R 

constb 

00703 

R 

CONSTE 

00746 

R 

CONSTF 

00755 

R 

COORD 

01547 

R 

CXB 

00030 

R 

DIAG2 

00563 

R 

P I Sp3 

00514 

R 

DJSP6 

00536 

R 

PSTSWl 

00106 

R 

EDI 

00041 

R 

EEM 

707702 

A 

EST 

00034 

R 

EX J T 

00427 

R 

FEGQRV 

01546 

R 

HOLDSW 

00454 

R 

INCRUN 

00612 

R 

JNCRi 1 

00637 

R 

JNXOCY 

01046 

R 

KRAN 

00001 

R 

K310 

01531 

R 

K610 
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